home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Apple II Sample Code / APW.SC / SC24Teach / Teach.p / UGlobals.p < prev    next >
Encoding:
Text File  |  1990-06-24  |  2.7 KB  |  98 lines  |  [TEXT/pdos]
  1. {**********************************************************************
  2. {*
  3. {*
  4. {* Teach Globals -- Version 3.0  (interface)
  5. {*
  6. {* Copyright (c)
  7. {* Apple Computer, Inc.  1986-1988
  8. {* All Rights Reserved.
  9. {*
  10. {* Developer Technical Support Apple II Sample Code
  11. {*
  12. {* This file contains the global variables used by the Teach 
  13. {* program.
  14. {*
  15. {**********************************************************************}
  16.  
  17. UNIT uGlobals;
  18.  
  19. INTERFACE
  20.  
  21. USES    
  22.  
  23.         types,
  24.         locator,
  25.         memory,
  26.         quickdraw,
  27.         intMath,
  28.         events,
  29.         controls,
  30.         windows,
  31.         dialogs,
  32.         STDFile;
  33.  
  34. const
  35.  
  36.         AppleMenuID         = $1100;
  37.             AboutItem       = $1101;
  38.  
  39.         FileMenuID          = $1200;
  40.             NewItem         = $1203;
  41.             OpenItem        = $1204;
  42.             SaveItem        = $1205;
  43.             SaveAsItem      = $1206;
  44.             CloseItem       = 255;   {For DA's}
  45.             PageSetupItem   = $1207;
  46.             PrintItem       = $1208;
  47.             QuitItem        = $1202;
  48.  
  49.         EditMenuID          = $1300;
  50.             UndoItem        = 250;    {For DA's}
  51.             CutItem         = 251;    {For DA's}
  52.             CopyItem        = 252;    {For DA's}
  53.             PasteItem       = 253;    {For DA's}
  54.             ClearItem       = 254;    {For DA's}
  55.             SelectAllItem   = $1306;
  56.  
  57.         FontMenuID          = $1400;
  58.             ChooseFontItem  = $1401;
  59.  
  60.         StyleMenuID         = $1500;
  61.             PlainItem       = $1501;
  62.             BoldItem        = $1502;
  63.             ItalicItem      = $1503;
  64.             UnderlineItem   = $1504;
  65.             ShadowItem      = $1505;
  66.             OutlineItem     = $1506;
  67.  
  68.         SizeMenuID          = $1600;
  69.             Size8Item       = $1601;
  70.             Size10Item      = $1602;
  71.             Size12Item      = $1603;
  72.             Size16Item      = $1604;
  73.             Size20Item      = $1605;
  74.             Size24Item      = $1606;
  75.             FirstFontItem   = $1402;
  76.  
  77.     MainWindowID = $1000;
  78.     
  79.  
  80. var
  81.        userID       : integer;      {Application ID assigned by Memory Mgr}
  82.        quitFlag     : boolean;      {True when quitting}
  83.        staggerCount : integer;      {used to stagger windows as they open }
  84.        event        : WmTaskRec;    {All events are returned here}
  85.        lastWindow   : GrafPortPtr;  {This private global is used in CheckFrontW.
  86.                                 ** to prevent extra work when the windows
  87.                                 ** have not changed.  It is initialized
  88.                                 ** at the beginning of MainEvent.}
  89.                                        
  90. procedure InitGlobals;                                     {Setup variables}
  91.  
  92. IMPLEMENTATION
  93.  
  94. {$i uGlobals.inc.p}
  95.  
  96.  
  97. END.
  98.